home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / online / amil / amil_contrib_yam.rexx next >
OS/2 REXX Batch file  |  1992-09-02  |  2KB  |  110 lines
  1. /* 
  2. **---------------------------------------
  3. **
  4. ** AMIL_Contrib_YAM.rexx
  5. **
  6. ** Send AMIL contribution using YAM by M. Beck.
  7. **
  8. ** © 1996 Tassos Hadjithomaoglou
  9. **
  10. **----------------------------------------
  11. ** $VER: AMIL_Contrib_YAM.rexx V0.1 (28-Apr-96)
  12. **----------------------------------------
  13. **
  14. ** History
  15. **
  16. **  0.1 First release.
  17. **
  18. **------------------------------------------------------------------------
  19. */
  20.  
  21. /*
  22. ** SendNow variable
  23. **
  24. ** Select whether to SEND the contribution NOW or put it into the QUEUE
  25. ** and sent it later.
  26. ** That's the only thing you should change.
  27. **
  28. ** SendNow = 1 ; Send the mail now (A TCP/IP stack must be running !!!).
  29. ** SendNow = 0 ; Put the mail into the queue and send it later (Default).
  30. */
  31.  
  32. SendNow = 0
  33.  
  34. /*
  35. ** Please don't change anything after this line
  36. **----------------------------------------------
  37. */
  38.  
  39. OPTIONS RESULTS
  40.  
  41. SIGNAL ON BREAK_C
  42. SIGNAL ON SYNTAX
  43.  
  44. NL='0A'X
  45.  
  46. Contrib_file = 'T:AMIL_Contrib.txt'
  47.  
  48. /*
  49. ** Check if YAM is running. If not, start it in iconified mode.
  50. ** Please make sure the YAM: assign is made
  51. ** and that it points to the right directory.
  52. */
  53.  
  54. IF ~SHOW('Ports','YAM') THEN
  55. DO
  56.      ADDRESS COMMAND 'Run YAM:YAM NOCHECK HIDE'
  57.     ADDRESS COMMAND 'SYS:RexxC/WaitForPort YAM'
  58. END
  59.  
  60. /*
  61. ** Compose the mail header and send/queue the mail.
  62. */
  63.  
  64. IF SHOW('Ports','YAM') THEN
  65. DO
  66.         ADDRESS 'YAM'
  67.         WriteMailTo "chatasos@cs.teiath.gr"
  68.         WriteSubject "AMIL"
  69.         WriteLetter Contrib_file
  70.         IF SendNow THEN
  71.         DO
  72.             WriteSend
  73.             SAY 'Mail sent...'
  74.         END
  75.         ELSE
  76.         DO
  77.             WriteQueue
  78.             SAY 'Mail queued...'
  79.             SAY 'Run YAM at a later time to send it.'
  80.         END
  81.  
  82.         /*
  83.         ADDRESS COMMAND 'Delete >NIL: 'Contrib_file
  84.         */
  85. END
  86. ELSE
  87. DO
  88.     SAY 'Error while loading YAM.'
  89.     SAY 'Check file YAM:YAM and try again later.'
  90. END
  91.  
  92. EXIT 0
  93.  
  94. /*
  95. ** Handle the Error condition
  96. */
  97.  
  98. SYNTAX:
  99.     SAY 'Error at line' SIGL ':' ERRORTEXT(RC)
  100.     SAY 'Please report it to the author'
  101.     EXIT
  102.  
  103. /*
  104. ** Handle the Control C command given by the user
  105. */
  106.  
  107. BREAK_C:
  108.     SAY 'Sending AMIL Contribution with YAM aborted...'
  109.     EXIT
  110.